home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Gfx
/
Edit
/
TSMorph
/
rexx
/
FadeToWhite.TSM
< prev
next >
Wrap
Text File
|
1995-02-05
|
1KB
|
41 lines
/* example Prescript script file for TSMorph */
/* This example is a simple Warp which fades to white */
/* $VER: FadeToWhite_TSM 3.1 (5.2.95)
*/
parse arg Base
Frame = 0
TotalFrames = 1
Single = 2
Movement = 3
Red1 = 4
Green1 = 5
Blue1 = 6
Red2 = 7
Green2 = 8
Blue2 = 9
Produce = 10
RPlus = 11
GPlus = 12
BPlus = 13
RMinus = 14
GMinus = 15
BMinus = 16
DX = 17
DY = 18
Start = 19
call StoreValue(Base,Rplus,TRUNC(GetValue(Base,Frame)*255/GetValue(Base,TotalFrames)));
call StoreValue(Base,Gplus,TRUNC(GetValue(Base,Frame)*255/GetValue(Base,TotalFrames)));
call StoreValue(Base,Bplus,TRUNC(GetValue(Base,Frame)*255/GetValue(Base,TotalFrames)));
exit
GetValue:Procedure
Parse arg XBase, XAdd
return C2D(IMPORT(D2C(STRIP(XBase) + (STRIP(Xadd) * 4),4),4))
StoreValue:Procedure
Parse arg XBase, XAdd, XVal
call EXPORT(D2C(STRIP(XBase) + (STRIP(Xadd) * 4),4),D2C(XVal,4),4)
return